10 S=664:MA=50:BA=1184:AZ=0:G=0:GE=0:K=0:Z=0:X=0:Y=0:V=0
20 DIMF%(MA):GOTO80
30 :
40 PRINT"[147]DISK-OPTIMIZER II":PRINT"[197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197]
50 [153]"BY MARKUS NAEHER":[142]
60 :
70 [143]  *** EINLESEN ***
80 [141]40:[153]"LAENGEN DER PROGRAMME EINGEBEN":[129]X[178]0[164]MA
90 [153]X[170]1"CMD. PROGRAMM ";:[133]F%(X):[139]F%(X)[177][178]S[167][153]"ONON":[137]90
100 [139]F%(X)[179]0[167]X[178]X[171]1:[153]"ONONON":[137]90
110 [139]F%(X)[179][177]0[167][130]
120 AZ[178]X[171]1
130 :
140 [143]  *** VON GROSS NACH KLEIN ORDNEN ***
150 [129]X[178]0[164]AZ[171]1:G[178]0:[129]Y[178]X[164]AZ:[139]F%(Y)[177]G[167]G[178]F%(Y):GE[178]Y
160 [130]:F%(GE)[178]F%(X):F%(X)[178]G:[130]
170 [141]40:[129]X[178]0[164]AZ:[153]" "F%(X),:[130]:[153]"
180 :
190 REM  *** SUCHE NACH KOMBINATIONEN ***
200 OPEN1,4:PRINT#1,"DISK-OPTIMIZER II":DIMK%(AZ*10,AZ),P%(AZ)
210 FORZ=1TOAZ-1:FORX=0TOZ:P%(X)=X:NEXT:V=Z
220 REM ** AUSGABE DER MOMENTANEN KONFIGURATION **
230 FORX=P%(V)-1TOAZ:POKEBA+10*X,32:NEXT:FORX=0TOZ:POKEBA+10*P%(X),42:NEXT
240 REM ** TESTEN, OB AKTUELLE KOMBINATION ALS SUMME S ERGIBT, DANN AUSGABE **
250 G=0:FORX=0TOZ:G=G+F%(P%(X)):NEXT:PRINT"SUMME :"G"[157]   [145]":IFG<>SGOTO270
260 FORX=0TOZ:K%(K,P%(X))=1:PRINT#1,F%(P%(X));:NEXT:PRINT#1:K=K+1:GOTO290
270 IFG<SANDV=0GOTO320
280 REM ** NAECHSTE KOMBINATION ERMITTELN **
290 FORX=ZTO0STEP-1:IFP%(X)=AZ-Z+XTHENNEXT:GOTO320
300 V=X:P%(V)=P%(V)+1:IFX<ZTHENFORX=V+1TOZ:P%(X)=P%(X-1)+1:NEXT
310 GOTO230
320 G=0:FORX=0TOZ+1:G=G+F%(AZ-X):NEXT:IFG<STHENNEXTZ
330 IFG=STHENFORX=AZ-Z-1TOAZ:K%(K,X)=1:PRINT#1,F%(X);:NEXT:PRINT#1:K=K+1
340 :
350 REM *** AUSGABE DER KOMBINATIONEN ALS TABELLE ***
360 IFK=0THENCLOSE1:END
370 FORX=0TOAZ:PRINT#1,RIGHT$("      "+STR$(F%(X)),LEN(STR$(F%(0))));
380 FORY=0TOK-1:PRINT#1,CHR$(46-4*K%(Y,X));:NEXT:PRINT#1:NEXT:CLOSE1